home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr51 / kw110.zip / KWDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  473b  |  14 lines
  1. PROGRAM Kwdemo;    {PASCAL bar code input example}
  2.  
  3. VAR Scanned : String;
  4.  
  5.    BEGIN
  6.      Write('Scan Now: ');
  7.      Readln( Scanned );
  8.      Writeln( 'The variable SCANNED is now equal to: ',Scanned );
  9.    END.
  10.  
  11.   {This short program will read input from a bar code or the keyboard.}
  12.   {After a bar code message is scanned, the variable "Scanned" will}
  13.   {contain the bar code message.  PASCAL's READ and READKEY can also}
  14.   {be used to input bar code messages.}